home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / Q3.bas < prev    next >
BASIC Source File  |  2012-02-16  |  7KB  |  244 lines
  1. 0  HOME 
  2. 100  HGR : HCOLOR= 3
  3. 110  REM      1st ap
  4. 112 X% = 40:Y% = 25
  5. 114  GOSUB 9800
  6. 116  HPLOT 30,5 TO 30,50
  7. 118  HPLOT 31,5 TO 31,50
  8. 120  HPLOT 66,5 TO 66,50
  9. 122  HPLOT 67,5 TO 67,50
  10. 124 X% = 46:Y% = 60
  11. 126  GOSUB 10000
  12. 128  HPLOT 52,60
  13. 150  REM      2nd ap
  14. 152 X% = 170:Y% = 25
  15. 154  GOSUB 9800
  16. 156  HPLOT 150,50 TO 178,5 TO 210,50
  17. 158  HPLOT 149,50 TO 177,5 TO 209,50
  18. 160 X% = 176:Y% = 60
  19. 162  GOSUB 11200
  20. 164  HPLOT 182,60
  21. 200  REM      3rd ap
  22. 202 X% = 40:Y% = 100
  23. 204  GOSUB 9800
  24. 206  HPLOT 10,115 TO 47,88 TO 84,115
  25. 208  HPLOT 9,115 TO 47,87 TO 85,115
  26. 210 X% = 46:Y% = 135
  27. 212  GOSUB 10050
  28. 214  HPLOT 52,135
  29. 230  REM      4th ap
  30. 232 X% = 170:Y% = 100
  31. 234  GOSUB 9800
  32. 236  HPLOT 135,100 TO 175,88
  33. 238  HPLOT 134,100 TO 174,88 TO 210,88
  34. 240  HPLOT 174,89 TO 210,89
  35. 242 X% = 178:Y% = 135
  36. 244  GOSUB 10100
  37. 246  HPLOT 184,135
  38. 500  REM        ?
  39. 501  PRINT : PRINT 
  40. 502  VTAB (21): PRINT "Which of these mirrors will project an  infinite number of apples?"
  41. 504  GET KY$: CALL 62450
  42. 510  REM       replies
  43. 512  IF KY$ = "a"  OR KY$ = "A"  THEN  GOSUB 6000
  44. 516  IF KY$ = "b"  OR KY$ = "B"  OR KY$ = "c"  OR KY$ = "C"  OR KY$ = "d"  OR KY$ = "D"  THEN  GOSUB 6050
  45. 520  PRINT : PRINT 
  46. 522  PRINT "Please enter <a>, <b>, <c>, or <d>      only."
  47. 524  FOR I = 0 TO 700
  48. 526 J = 1
  49. 528  NEXT I
  50. 530  GOTO 0
  51. 5000  END 
  52. 6000  HOME : TEXT 
  53. 6002  PRINT 
  54. 6004  PRINT "You're RIGHT!!  Press any key for more  questions."
  55. 6006  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  56. 6008  PRINT  CHR$(4);"run q4"
  57. 6010  RETURN 
  58. 6050  HOME : TEXT 
  59. 6052  PRINT 
  60. 6054  PRINT "Sorry, choose another answer."
  61. 6056  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  62. 6058  FOR I = 0 TO 800
  63. 6060 J = 1
  64. 6062  NEXT I
  65. 6064  GOTO 0
  66. 9800  REM      draw ap
  67. 9802  HPLOT X% +3,Y% TO X% +4,Y%
  68. 9804  HPLOT X% +3,Y% +1 TO X% +5,Y% +1
  69. 9806  HPLOT X% +10,Y% +1 TO X% +11,Y% +1
  70. 9808  HPLOT X% +3,Y% +2 TO X% +6,Y% +2
  71. 9810  HPLOT X% +10,Y% +2 TO X% +11,Y% +2
  72. 9812  HPLOT X% +4,Y% +3 TO X% +7,Y% +3
  73. 9814  HPLOT X% +9,Y% +3 TO X% +10,Y% +3
  74. 9816  HPLOT X% +4,Y% +4 TO X% +10,Y% +4
  75. 9818  HPLOT X% +1,Y% +5 TO X% +16,Y% +5
  76. 9820  HPLOT X%,Y% +6 TO X% +17,Y% +6
  77. 9822  HPLOT X%,Y% +7 TO X% +17,Y% +7
  78. 9824  HPLOT X%,Y% +8 TO X% +17,Y% +8
  79. 9826  HPLOT X%,Y% +9 TO X% +17,Y% +9
  80. 9828  HPLOT X% +1,Y% +10 TO X% +16,Y% +10
  81. 9830  HPLOT X% +1,Y% +11 TO X% +16,Y% +11
  82. 9832  HPLOT X% +1,Y% +12 TO X% +16,Y% +12
  83. 9834  HPLOT X% +2,Y% +13 TO X% +15,Y% +13
  84. 9836  HPLOT X% +2,Y% +14 TO X% +15,Y% +14
  85. 9838  HPLOT X% +3,Y% +15 TO X% +14,Y% +15
  86. 9840  HPLOT X% +4,Y% +16 TO X% +13,Y% +16
  87. 9842  HPLOT X% +5,Y% +17 TO X% +7,Y% +17
  88. 9844  HPLOT X% +10,Y% +17 TO X% +12,Y% +17
  89. 9850  RETURN 
  90. 9999  REM     a
  91. 10000  HPLOT X%,Y% -1
  92. 10010  HPLOT X% +1,Y% TO X% +2,Y%
  93. 10020  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  94. 10030  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  95. 10040  HPLOT X% +3,Y% TO X% +3,Y% -3
  96. 10041  RETURN 
  97. 10049  REM     c
  98. 10050  HPLOT X%,Y% -1 TO X%,Y% -3
  99. 10060  HPLOT X% +1,Y% TO X% +3,Y%
  100. 10070  HPLOT X% +1,Y% -4 TO X% +3,Y% -4
  101. 10071  RETURN 
  102. 10099  REM     d
  103. 10100  HPLOT X%,Y% -1 TO X%,Y% -3
  104. 10110  HPLOT X% +1,Y% TO X% +2,Y%
  105. 10120  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  106. 10130  HPLOT X% +3,Y% TO X% +3,Y% -6
  107. 10131  RETURN 
  108. 10149  REM     e
  109. 10150  HPLOT X%,Y% -1 TO X%,Y% -3
  110. 10160  HPLOT X% +1,Y% TO X% +3,Y%
  111. 10170  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  112. 10180  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  113. 10190  HPLOT X% +3,Y% -3
  114. 10191  RETURN 
  115. 10199  REM     f
  116. 10200  HPLOT X%,Y% -3 TO X% +2,Y% -3
  117. 10210  HPLOT X% +1,Y% TO X% +1,Y% -5
  118. 10220  HPLOT X% +2,Y% -6 TO X% +3,Y% -6
  119. 10221  RETURN 
  120. 10249  REM     g
  121. 10250  HPLOT X%,Y% -1 TO X%,Y% -3
  122. 10260  HPLOT X% +1,Y% TO X% +2,Y%
  123. 10270  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  124. 10280  HPLOT X% +3,Y% +2 TO X% +3,Y% -3
  125. 10290  HPLOT X% +1,Y% +3 TO X% +2,Y% +3
  126. 10291  RETURN 
  127. 10299  REM     h
  128. 10300  HPLOT X%,Y% TO X%,Y% -6
  129. 10310  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  130. 10320  HPLOT X% +3,Y% TO X% +3,Y% -3
  131. 10321  RETURN 
  132. 10349  REM     i
  133. 10350  HPLOT X%,Y% TO X%,Y% -3
  134. 10360  HPLOT X%,Y% -5
  135. 10361  RETURN 
  136. 10399  REM     l
  137. 10400  HPLOT X%,Y% TO X%,Y% -6
  138. 10401  RETURN 
  139. 10449  REM     n
  140. 10450  HPLOT X%,Y% TO X%,Y% -4
  141. 10460  HPLOT X% +1,Y% -3
  142. 10470  HPLOT X% +2,Y% -4
  143. 10480  HPLOT X% +3,Y% TO X% +3,Y% -3
  144. 10481  RETURN 
  145. 10499  REM     o
  146. 10500  HPLOT X%,Y% -1 TO X%,Y% -3
  147. 10510  HPLOT X% +1,Y% TO X% +2,Y%
  148. 10520  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  149. 10530  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  150. 10531  RETURN 
  151. 10549  REM     p
  152. 10550  HPLOT X%,Y% +3 TO X%,Y% -4
  153. 10560  HPLOT X% +1,Y% TO X% +2,Y%
  154. 10570  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  155. 10580  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  156. 10581  RETURN 
  157. 10599  REM      r
  158. 10600  HPLOT X%,Y% TO X%,Y% -4
  159. 10610  HPLOT X% +1,Y% -3
  160. 10620  HPLOT X% +2,Y% -4 TO X% +3,Y% -4
  161. 10621  RETURN 
  162. 10649  REM      t
  163. 10650  HPLOT X%,Y% -4
  164. 10660  HPLOT X% +1,Y% TO X% +1,Y% -6
  165. 10670  HPLOT X% +2,Y% -4
  166. 10671  RETURN 
  167. 10699  REM      u
  168. 10700  HPLOT X%,Y% -1 TO X%,Y% -4
  169. 10710  HPLOT X% +1,Y%
  170. 10720  HPLOT X% +2,Y% -1
  171. 10730  HPLOT X% +3,Y% TO X% +3,Y% -4
  172. 10731  RETURN 
  173. 10899  REM       A
  174. 10900  HPLOT X%,Y% TO X%,Y% -4
  175. 10910  HPLOT X% +1,Y% -5 TO X% +2,Y% -6
  176. 10920  HPLOT X% +3,Y% -5
  177. 10930  HPLOT X% +1,Y% -2 TO X% +3,Y% -2
  178. 10940  HPLOT X% +4,Y% TO X% +4,Y% -4
  179. 10941  RETURN 
  180. 10949  REM      I
  181. 10950  HPLOT X% +1,Y% TO X% +3,Y%
  182. 10960  HPLOT X% +2,Y% -1 TO X% +2,Y% -5
  183. 10970  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  184. 10971  RETURN 
  185. 10999  REM       L
  186. 11000  HPLOT X%,Y% TO X%,Y% -6
  187. 11010  HPLOT X% +1,Y% TO X% +4,Y%
  188. 11011  RETURN 
  189. 11049  REM       M
  190. 11050  HPLOT X%,Y% TO X%,Y% -6
  191. 11060  HPLOT X% +1,Y% -5
  192. 11070  HPLOT X% +2,Y% -3 TO X% +2,Y% -5
  193. 11080  HPLOT X% +3,Y% -5
  194. 11090  HPLOT X% +4,Y% TO X% +4,Y% -6
  195. 11091  RETURN 
  196. 11099  REM       R
  197. 11100  HPLOT X%,Y% TO X%,Y% -6
  198. 11110  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  199. 11120  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  200. 11130  HPLOT X% +4,Y% -4 TO X% +4,Y% -5
  201. 11140  HPLOT X% +4,Y% TO X% +2,Y% -2
  202. 11141  RETURN 
  203. 11149  REM       C
  204. 11150  HPLOT X%,Y% -1 TO X%,Y% -5
  205. 11160  HPLOT X% +1,Y% TO X% +3,Y%
  206. 11170  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  207. 11180  HPLOT X% +4,Y% -5
  208. 11190  HPLOT X% +4,Y% -1
  209. 11191  RETURN 
  210. 11199  REM      b
  211. 11200  HPLOT X%,Y% TO X%,Y% -6
  212. 11210  HPLOT X% +1,Y% TO X% +2,Y%
  213. 11230  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  214. 11240  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  215. 11241  RETURN 
  216. 11249  REM      3
  217. 11250  HPLOT X%,Y% TO X% +2,Y%
  218. 11260  HPLOT X%,Y% -6 TO X% +2,Y% -6
  219. 11270  HPLOT X% +1,Y% -3 TO X% +2,Y% -3
  220. 11280  HPLOT X% +3,Y% -1 TO X% +3,Y% -2
  221. 11290  HPLOT X% +3,Y% -4 TO X% +3,Y% -5
  222. 11291  RETURN 
  223. 11299  REM      0
  224. 11300  HPLOT X% +1,Y% TO X% +2,Y%
  225. 11310  HPLOT X%,Y% -1 TO X%,Y% -5
  226. 11320  HPLOT X% +1,Y% -6 TO X% +2,Y% -6
  227. 11330  HPLOT X% +3,Y% -1 TO X% +3,Y% -5
  228. 11331  RETURN 
  229. 11349  REM      9
  230. 11350  HPLOT X%,Y% -4 TO X%,Y% -5
  231. 11360  HPLOT X% +1,Y% -3 TO X% +2,Y% -3
  232. 11370  HPLOT X% +1,Y% -6 TO X% +2,Y% -6
  233. 11380  HPLOT X% +3,Y% TO X% +3,Y% -5
  234. 11381  RETURN 
  235. 11399  REM      =
  236. 11400  HPLOT X%,Y% -1 TO X% +3,Y% -1
  237. 11410  HPLOT X%,Y% -3 TO X% +3,Y% -3
  238. 11411  RETURN 
  239. 11449  REM      degree sign
  240. 11450  HPLOT X%,Y% -5
  241. 11460  HPLOT X% +1,Y% -4
  242. 11470  HPLOT X% +1,Y% -6
  243. 11480  HPLOT X% +2,Y% -5
  244. 11481  RETURN